From 9fdcf5f383006129698e33dc5fb714b4000b52bc Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Mon, 8 Jul 2002 22:20:31 +0000 Subject: [PATCH] (ido-make-merged-file-list): Move fully matching item to head of list. --- lisp/ido.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lisp/ido.el b/lisp/ido.el index 97aa0d24a09..049ef96cb08 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -2511,6 +2511,12 @@ for first matching file." res t)))))) (if (and res (not (eq res t))) (setq res (ido-sort-merged-list res auto))) + (when (and (or ido-rotate-temp ido-rotate-file-list-default) + (> (length text) 0)) + (let ((elt (assoc text res))) + (unless (eq elt (car res)) + (setq res (delq elt res)) + (setq res (cons elt res))))) (message nil) res)) -- 2.30.2